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MODULE FIND ( er a 


BEGIN 


ESS SSI SETI TIT TT TT TET TT TTT rte creer iri titi titi i titi i tit itiiititiit 


'@ 

'® COPYRIGHT (c) 1978, 1980, 1982, 1984 B 

'® DIGITAL EQUIPMENT EORPORATION, MAYNARD. MASSACHUSETTS. 
'® ALL RIGHTS RESERVED. 


*® 
® 
® 
a 
* 
ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED + 
fs ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
is INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
is COPIES. THEREOF MAY NOT BE PROVIDED OR OTHERUISE MADE AVAILABLE TO ANY * 
i OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. * 
4 ® 
'® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
i® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
ie CORPORATION. * 

ce 

® 

ca 

® 

® 

® 


ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 

'® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 

Lee RRR RA EEE 
lee 

] 


FACILITY: MTAACP 


i | eran ACT: 
This module finds a file by file name string. 


{| ENVIRONMENT : 


Starlet operating system, including privileged system services 
and internal exec routines. 


AUTHOR: D. H. GILLESPIE, CREATION DATE: 25-MAY-77 15:20 
i MODIFIED BY: 


v03-002 MMD0283 Neg du ont 
Fix to Linkage of ARSE F oF ib. 


v03-001 ov gpl Meg Dumont, 26-Apr-1983 9:1 

Digna for long file names. Changed the max size 

¢ len one can have fo be the symbol FILE_SPEC mMAX. ahich 
is defined in MTADEF . B3 


23-Mar-1984 10:33 


; 8 

3 9 38 
; 60 0 
; 61 1 
; 6 bo¢ 
3 6 

; 66 Os 
3; 6 5 
| = oe? 
; 668 8O8 
i $3 0 
ieee 71 
: 4 
ce = 007 
3; «676 Bore 
a... 075 
; rf O78 
cr 07 
; 6«8 078 
; 79 0079 
; 80 0080 
; = «8B1 0464 
3 Sg 0465 
3; § 0666 
; 684 046 
; §5 0468 
; & 0469 
; 687 0470 
; 8 0471 
; 64289 047 
: 90 047 
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v02-009 DMw00073 David Michael Walp 28-Jan-1981 
Fixed wildcard characters in quoted string bug 
V02-008 DMW00068 David Michael Walp 11-Jan-1981 


Added support for 17 ANSI ‘a’ characters thru Q10 
filename parameters 


V02-007 DMwW00062 David Michael Walp 18-Dec-1981 
Rewrite to support 17 ANSI ‘a’ characters file names 
V02-006 DMWw00006 David Michael Walp 22-Jan-1981 


Added code for complete wild card support. Changes 
in routine FIND_FILE. Replaced direct compares of 
the file name and type via CHSEQL with the new 
FMGSMATCH_NAME procedure and removed old wild code. 


V02-005 REFORMAT Maria del C. Nasr 30-Jun-1980 


LIBRARY ‘SYSSLIBRARY:LIB.L32'; 
REQUIRE ‘SRCS:MTADEF .B32'; 
seamag 37 ROUTINE 


IND_FILE : COMMON_CALL NOVALUE, ! find file by file name string 
CLEAR_ST_SEARCH COMMON_CALL NOVALUE; ! clear start of search 
LINKAGE 
L_MATCH_NAME = JSB ( REGISTER = 2, REGISTER = 3, REGISTER = 4, REGISTER = 5 ) 
: NOTUSED ( 10, 11 ); 
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10-Sep-1984 96: 
GLOBAL ROUTINE FIND_FILE : COMMON_CALL NOVALUE = 


a) VAX-11 Bliss-32 V4.0-742 Page 3 
9 DISK SKSVMGN TER: CMTAACP.SRCIF IND.B32;1 (2) 


eed DESCRIPTION: 
This routine finds a file by file name string. 
CALLING SEQUENCE: 
FIND ( ) 
INPUT on 


IMPLICIT INPUTS: 


ot + LOCAL_FIB, CURRENT_VCB 
0490 OUTPUT PARAMETERS: 
0491 none 

049 

049 IMPLICIT OUTPUTS: 
0494 none 

0495 

0496 ROUTINE VALUE: 
0497 NONE 

0498 

0499 SIDE EFFECTS: 
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SRSERES AS SELSAPUNSEVSVOO RUNS Sasa arin -SSSLEAPAR I SSELSSLES 8 
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1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

} 

1 0500 If file found, HDR1, HDR2, HDR3 and HDR4 will be read in or defaulted 

: bep4 result file name string and Length returned to user. 

1 $808 USER ERRORS: 

1 0504 SS$_NOSUCHFILE - file not found 

1 0505 SSS-RESULTOVF = result string overflow 

1 B28 -- 

1 B28 

1 508 BEGIN 

1 0509 

1 0510 EXTERNAL REGISTER 

1 0511 COMMON_REG; 

1 ba1§ 

1 051 EXTERNAL 

' gate LOCAL_FIB : BBLOCK; ! copy of user's fib 

1 21$ EXTERNAL ROUTINE 

1 51 FORMAT _FID : COMMON CALL ' format fid 
1 518 FMGSMATCH_NAME : L_MATCR_NAME, i match general wild card, str | 
1 519 bet START_HDR : LSGET START_HOR, ! get hdrs to start sear 
1 520 PARSE _FID™ : EOMMOR. CALL? i parse FID fields in aDat pdt HDR4 | 
1 521 PARSE-PATTERN_SPEC : COMMON “CALL, i parse pattern spec | 
1 5 ¢ READ : COMMON” CALL, i read headers 
1 5 RESULTANT STRING : COMMON_CALL "NOVALUE ; ! return resultant string 
1 524 REWIND VOC_SET : COMMON =A LL, rewind volume set 
1 525 SPACE EOF : COMMON-CALL, space to end of file | 
1 5 § SYSSFAO : ADDRESSING RODE ( nase UTE ;° } "Tornat Atty output 

1 5 WRAP _AROUND : LSWRAP_AROOND; ' wrap around to beginning of 

1 528 ! volume set 

1 b2 9 LITERAL 

1 530 WILD_QUOTED = 0, ! pit layout for FILE_SPEC_BITS 


Fs 


i] 
0909 09 09 09 C8 INI NN SIN NIN NN SIO OOO oa PUPP 


PATTERN_VMS_SPEC = 1, 
TAPE_ID_VMS_SPEC = 2, $ fs 
VMS = 0, ! meen ings of the 2nd and 3rd 

PAT_VMS = 1, ' bits in FILE_SPEC_BITS 

TAPE_VMS = ¢: : 

BOTH_VMS Ss 33 : 

LOCAL 

4 FILE _SPEC_BITS : BITVECTOR C33, ! info about the file specs 
4 FID_VER : WORD, ' HDR1 FID binary version 
2 PAT_VER : WORD, ! Pattern binary fid version 
4 ' descriptors and buffer for the file spec string 
4 ! size of FILE_SPEC_MAX to include VMS long filenames as well 
4 ! as ANSI file names 


FID_DESC : VECTOR C 2, LONG J, 

FID-STR : VECTOR € FILE SPEC_MAX, BYTE J, 

PAT-DESC : VECTOR LONG J; 

PAT“STR : VECTOR C FILE_SPEC_MAX, BYTE J; 
BIND 

FILENAMES_TYPES = FILE_SPEC_BITS : BLOCK; 
MACRO 

BITS_2_3 = 0, 1, 2, 0%; 


} if this is not a wild card lookup then zero context 
IF NOT .LOCAL_FIB C FIBSV_WILD ] THEN LOCAL_FIB C FIBSL_WCC J = 0; 
if beginning of search check for rewind switch 
If .LOCAL_FIB C FIBSL_WCC J] EQL 0 
THEN 
BEGIN 
IF .LOCAL_FIB C FIBSV_REWIND ] EQL 1 THEN REWIND_VOL_SET ( ); 
clear start of search file ID 
SERNEL CALL ( CLEAR_ST_SEARCH ); 


PUPUPVPUSUSUSUSUSUSUSUSUSUSU SUISSE OAS USUI 
PAEAAAAAAASMNMINMNN VIN & & 


ELSE 
BEGIN 


! If either of these two values are zero then the user has not preceded 
: this call with a first time thru lookup. 


if .CURRENT_VCB : VCBSL_CUR_FID ] _ EQL 
OR .CURRENT-VCB C VCBSL~START_FID ) EQL 
THEN ERR_EXTT ( SS$_BADPARAM J; 


! if not first time through , then don't include current file in search 
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122868-1 382 95:18:45 DISKSVMSMASTER: CMTAACP.SRCIFIND.B32;1 (2) 
' 
if NOT -CURRENT_VCB C VCBSV_LOGICEOVS ] THEN SPACE_EOF ( ); 
END; 
position to first file and read the headers 
iF NOT GET_START_HDR ( ) 
THEN 
! tm, $0 at logical end of volume set 
' continue search at beginning of tape unless the start of search was 
the beginning 
iF NOT WRAP_AROUND ( ) THEN ERR_EXIT ( SS$_NOSUCHFILE ); 
H if dummy file, deny its existence 
if -CURRENT_VCB C VCBSW_CUR_NUM ) EQLU 0 THEN ERR_EXIT ( SS$_NOSUCHFILE ); 


if vores time through save start context else check not at beginning of 
! searc 
' 


if .LOCAL_FIB C FIBSL_WCC J EQL 0 
THEN 


convert file seq and section number 

KERNEL_CALL ‘< FORMAT_FID, CURRENT_VCB C VCBSW_START_NUM ] ) 
ELSE 

possible end of search 


iF .CURRENT_VCB C VCBSL_CUR_FID J] EQL .CURRENT_VCB C VCBSL_START_FID J 
THEN ERR_EXTT ( SS$_NOSOCHFILE ); 


initialize buffer descriptors with constants 
PAT_DESC 9 = FILE SPEC_MAX; 
1 
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PAT~DESC = PAT_STR; 
FID-DESC = FIDTSTR: 


parse the pattern string 
FILE_SPEC_BITS = PARSE_PATTERN_SPEC ( PAT_DESC, PAT_VER ); 
: loop until a match or we have searched them all 
WHILE 1 
dO 
BEGIN 


! reset the size of the FID buffer 
parse the FID of the current file 


FID_DESC C 0 ) = FILE_SPEC_MAX; 
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-Sep-1984 DISKSVMSMASTER: CNTAACP. SRCIFIND. 832;1 (2) 
FILE_SPEC_BITS CTAPE_ID_VMS_SPEC] = PARSE_FID (FID_DESC,FID_VER); 


! test if the current file ~* fies the pattern spec, exitloop 
i and return if we have a mat 


! 
i 
i match name ' Tape File ID Field Value 
and type H Quoted VMS 
i Pattern Quoted | Strings Equal i: String Equal ( in case 
os : ‘ VMS spec in quotes _ 
Value VMS i: Only *.* or *, | Normal wildcard match 
if ( CASE gh ILENAMES_ TYPES C BITS_2_3 ] FROM 0 TO 3 OF 
NO_VMS J : CHSEQL ( EID D_DESCEO). .f fe Dpesttt i. 
T DESC T-DESCLIJ, °° ); 
PAT. VMS ])_ : .FILE spec “airs witb. auor OTED J; 
TAPE_VMS ) : CHSEQC (¢ F1D_Desct -FID peste id. 
T-DESCLOJ, .PAT_DESCC1IJ, ' ' ) 
C BOTH_VMS ] : FMGSMATCH “NAME ( .FID “oésctay. -F1D_pesct i). 
-PAT_DESCCOJ, -PAT_DESC[1] ) 
ue TES ) 
( -LOCAL_FIB C FIBSV_ALLVER ] wild version 
OR ( .PAT_VER LEQU 0 J OR first or last version 
OR ( .PAT_VER EQLU .FID_VER ) OR same version 


) 
THEN EXITLOOP; 


' no match, space to the end of this file and read the header for the 
next file, also test if have looked at all files 


SPACE EOF 
IF F NOT or AD hor () 


IF NOT WRAP_AROUND ( ) THEN ERR_EXIT ( SSS_NOSUCHFILE ); 


IF .CURRENT_VCB C VCB$L_CUR_FID } EQL .CURRENT_VCB C VCBSL_START_FID J 
THEN ERR_EXTT ( SS$_NOSOCHFILE ) 


END; ! end of while loop 


g 
0685 


4 
4 
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4 
4 
4 
4 
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4 
4 
3 
; 
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! have file match setup to write back FID 
return File Identifier Number in File Information Block 


FORMAT FID ( LOCAL _FIB C FBS FID_NUM ) ) 
LOCAL_FIB C FIBSW_FID_RVN > CURRENT vce" C VCBSB_CUR_RVN J ; 


note through lookup at least once 
iF .LOCAL re C FIBSV_WILD 


THEN LOCAL_F FIBSC_wCC 
ELSE LOCAL~ -FiB FIBSL-WCC 
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string 


4 ~ 


D 
EXTRN SYSS$FAO, WRAP_AROUND 


SEXTRN SYSSCMKRNL ~ 
.PSECT $CODE$,NOWRT,2 


07FC 00000 -ENTRY FIND_FILE, Save R2,R3,R4,R5,R6,R7,RB,R9,R10 ; 
00006 9F 9E€ 00002 MOVAB aA#SYSSCMKRNL, RO 
00006 CF 9€ 00009 MOVAB LOCAL FIB+16, R8 
FF48 cE 9 0005 MOVAB -184(SP), SP 
05 As €8 0001 BLBS LOCAL_FIB+21, 1$ 
68 04 00017 CLRL LOCAL“F1B+16 
68 D5 00019 1$ TSTL LOCAL“F18+16 
17 12 0001B BNEQ $ 
03 £1 0001D BBC #3, LOCAL_FIB, 2$ 
90 FB 000 ‘ CALLS #0, REWIND_VOL_SET 
E D4 900 2$: CLRL = = (§P) 
5E DD 00029 PUSHL SP 
O000v CF 9F 0002B PUSHAB CLEAR ST_SEARCH 
03 re 002F CALLS #3, SYSSTMKRNL 
16 11 00032 BRB $ 
24 AB DS 00034 3$ TSTL 6(CURRENT_VCB) 
05 13 00037 BEQL «= 4 
28 AB D5 00039 TSTL § 40(CURRENT_VCB) 
02 12 0003C BNEG 5$ 
14 BF 6 4$: CHMU #20 
1 £0 00046 5$: BBS #1, 11(CURRENT_VCB), 6$ 
0 Ff 4 CALLS #0, SPACE_EOF 
00 06 3 4A 6$: BSBW GET_START~HDR 
§ 4 BLBS _—-RO, 
00 06 BSBW § WRAP_AROUND 
E BLBS =—«aRO, -7$ 
0910 BF 6F é CHMU =_- #2820 
24 AB 83 A 7$ TSTW (CURRENT_VCB) 
4 D BNEQ 
0910 8F BF CH #2320 
$8 D3 8$ sit OCAL_F1B+16 
28 «=AB OOF BUSHAB 40(CURRENT_VCB) 


° 
RCIFIND.B32;1.> (2) 
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yOur000 19-808-1382 95:18: 4) DISKSVMSMASTER:CMTAACP. SRCJFIND.B32:1->" (2) 
gr DD A PUSHL #1 ; 
E BD C PUSHL SP : 
00006 CF 9F PUSHAB FORMAT_FID : 
69 4 FB f CALLS #4 SYSSCMKRNL : 
28 «AB 24 AB p} A 9$ CPL (CURRENT_VCB), 40(CURRENT_VCB) + 0622 
0910 er ef 7 CHMU ot $20 : 06 3 
58 AE 4F 8F 9A 00082 10$ MOVZBL #79, PAT_DESC + 0627 
5c OA 08 AE 3 0 OVAB  PAT.STR,~PAT_DESC+4 + 0628 
FC AD 60 AE 9E C MOVAB FID"STR. FID“DESC+4 + 0629 
SE pp 0 3 PUSHL SP + 0633 
SC AE 9F 0009 PUSHAB PAT_DESC : 
00006 ct FB 0096 CALLS #2, PARSE_PATTERN SPEC : 
6 3 0098 OVE RO. FILE_SPEC_BITS : 
F8 AD 4F BF 9A OO09E 11$:  MOVZBL #79, FIDTDESC + 0644 
04 AE 9F OOOA PUSHAB FID. VER + 0645 
F8 AD 9F OOOA PUSHAB FID-DESC ; 
00006 CF 02 re OOA CALLS #2, PARSE_FID F 
56 01 02 FO OOOA INSV RO. #2, #7, FILE_SPEC_BITS F 
57 56 02 or EF 0008 EXTZV #1. #2. FILENANES_TYPES, R7 > 0659 
03 00 7 CF 00088 CASEL R7, #0. # : 
001D 000F 000A 000F OOOBC 12$: .WORD 148-1 g.- ; 
128-198; ; 
15$-12$ : 
05 11 000C4 BRB 14$ + 0661 
2D 56 £9 000C6 138:  BLBC  FILE_SPEC_BITS, 17$ : 0663 
1¢ 11 000C9 BRB 16$ ; 
5B AE 20 FC BD F8 AD 2D 000CB 14%:  CMPCS FID_DESC, @FID_DESC+4, #32, PAT_DESC, - > 0664 
5C BE 000D @PAT_DESC+4 ; 
1F 12 000D BNEQ 17$ : 
OE 11 00007 BRB 16$ F 
54 58 AE 7D 000D9 15$:  MOVQ  PAT_DESC, R4 > 0666 
52 F8 AD 7D O000DD MOVO FIDTDESC. R2 : 
00006 30 000E1 BSBW - FMGSMATCH_NAME : 
OF 50 €9 OO0E4 BLBC =._-RO, «178 : 
2E 04 As 03 €E QO0E7 16$: BBS #3. LOCAL_FIB+20, 19$ + 0670 
6— 85 OOOEC TStw  PAT_VER > 0671 
2A 1 QOEE BEQL 9 : 
04 AE E B81 O00F CMPW  PAT_VER, FID_VER + 0672 
4 13 000F4 BEQL : 
00006 CF 0 FB OOOF6 17$: CALLS 4&0, SPACE_EOF : 0680 
0000G CF Q F oF CALLS #0, READ_ADR : 0681 
A 5 BLES =R : 
00006 010 BSBW § WRAP_AROUND > 0683 
04 0 £8 001 BLBS RO, T8$ F 
0910 8F BF 001 CHMU =: #2820 ; 
28 AB 24 AB DI 8 188: CHP ; (CURRENT_VCB), 40(CURRENT_VCB) > 0685 
0910 i BF 0011 CHMU Of $50 : 06 
4 11 00118 BRB 1 : 0637 
F4 AB 9F 0011A 19$:  PUSHAB LOCAL_FIB+4 > 0694 
00096 CF 01 FB 0011 CALLS a FORMAT_FID : 
F AB F Ap 28 1 MOVZBW 47(CURRENT yee) LOCAL_F 18+8 > 0695 
0 5 as €9 001 BLBC LOCAL_FIB+2 abs : 0699 
68 01 DO 00128 MOVL #1, LOCAL_F16+16 : 0700 


<" 
om 


-11 s-32 V4.0-742 Page 19 


VOe-000 16 Sep-1964 Moers ONsbnShAS eRe cHtakce Sacarino.es24°% «4s 


: 9 ay ROUTINE CLEAR_ST_SEARCH : COMMON_CALL NOVALUE = 

: ig 1 !44 

: ‘ 714 13 

: 334 715 1 1 FUNCTIONAL DESCRIPTION: 

3 5 £18 ! This routine clears the file id indicating the start of this search. 
: 7 orig 1/ CALLING SEQUENCE: 

3 3 1a : CLEAR_ST_SEARCH ( ), called in kernel mode 

; 40 07 a INPUT PARAMETERS: 

; ae 3 ¢ i i 

: 3% 0724 1 ' IMPLICIT INPUTS: 

3 re] 6? 5 } CURRENT_VCB = address of current volume control block 
: 346 07 5 1 § OUTPUT APARAMETERS 

HB Re 7 
: 349 0730 1 ! IMPLICIT OUTPUTS: 

; 20 O73 CURRENT_VCB C VCBSL_START_FID ] cleared 

: 3 ore 1 | ROUTINE VALUE: 

; 2 bee : none 

: 386 0736 1! SIDE EFFECTS: 

. on oe 

: 358 0739 1 ! USER ERRORS: 

3; 359 0740 1: none 

; 360 0741 1: 

Bo Bey 

: 368 0744 : BEGIN 

: 365 0746 EXTERNAL REGISTER 

366 544 § COMMON_REG; 

; 368 0749 2 CURRENT_VCB C VCBSL_START_FID } = 0; 

> 369 0750 1 END; 


0000 00000 CLEAR_ST_SEARCH: 
WORD 


" Save poshing 3; 0711 
28 AB D4 00002 CLRL 40(CURRENT_VCB) : 0749 
04 00005 RET : 0750 
3; Routine Size: 6 bytes, Routine Base: SCODE$S + 0145 
: 370 751 ! END 
: 371 eee 
: 372 753 0 ELUDOM 


nn 
=_ 


N 10 
FIND Jo~300° 1386 96:18:11 VAX=11 Bl iege 32 V4.0-742 11 
v04-000 14-Sep-1984 12:46:39 DISKSVMSMAST ERSCMTAACP. SRCIFIND.B32; 39 * (3) 


PSECT SUMMARY 


Name Bytes Attributes 
; SCODES 331 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; Library Statistics 
Raa ees ee ees oe === Symbols ------ -- Pages Processing 
: File Total Loaded Percent Mapped Time 
;  _$255$DUA28:(SYSLIBILIB.L32;1 18619 18 0 1000 00:01.9 
; COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:F IND/OBJ=OBJ$:FIND MSRC$:F IND/UPDATE=(ENH$:F IND) 
; Size: 331 code + 0 data bytes 
Run Time: 00:11.2 


Elapsed Time: O93 36.6 
Lines/CPU Min: 4037 
Lexemes/CPU-Min: 22064 
pee | Used: 147 pages 
Compilation Complete 


Sete Se Sete tee 
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